home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 3
/
AACD03.BIN
/
AACD
/
Programming
/
Triton
/
Install
/
Install Triton
next >
Wrap
Text File
|
1998-02-03
|
4KB
|
115 lines
; Install script for Triton (Workbench 2.0)
(set @default-dest "")
(set tritonlib37 "/libs37/triton.library")
(set tritonlib39 "/libs39/triton.library")
(set tritonprefs "/Prefs/Triton")
(set trPrefsUpdate "/trPrefsUpdate")
;=============================================================================
; English strings
(set default_lang 4)
(set #bad-kick "You must be using Kickstart 2.04+ to run Triton.")
(set #ask-kick39 (cat "You are running OS3.0 or higher. Do you want to install a special OS3.0+ "
"version of triton.library?"))
(set #help-kick39 (cat "The OS3.0+ version of triton.library is shorter and faster than the "
"general OS2.04+ version. It cannot be used with OS versions below 3.0."))
(set #ask-prefs "Do you want to install the Triton Preferences editor?")
(set #help-prefs (cat "The Triton Preferences editor allows you to change the look and feel "
"of all Triton applications' GUIs to fit your personal taste."))
(set #ask-makedir1 "Do you want to create the directory\n\nenv:Triton ?")
(set #ask-makedir2 "Do you want to create the directory\n\nenvarc:Triton ?")
(set #help-makedir (cat "Triton needs the directories env:Triton and envarc:Triton to save it's "
"configuration files. Without these directories you cannot use window "
"position remembering or the Triton Preferences editor. You may create "
"and delete these directories at any time with the Preferences editor.\n\n"
@makedir-help))
(set #ask-updateprefs "\nDo you want to update the preferences files?")
(set #help-updateprefs (cat "You have to update the Triton Preferences settings for your new "
"Triton version. This will be done automatically. You cannot use the new "
"settings files with older Triton versions."))
(set #copying-triton "Copying triton.library to Libs:...")
(set #copying-prefs "Copying Triton Preferences editor to sys:Prefs...")
(set #install-msg (cat "\n\nTriton installation script.\n"
"This script installs Triton on your Amiga.\n\n"
"Read the 'Distribution' file for\n"
"more information on the distribution\n"
"and commercial usage of Triton.\n\n"
"Triton © 1993-1995 Stefan Zeiger.\n"
"All rights reserved."))
;=============================================================================
; make sure we are running under a 2.04+ ROM
(if (< (/ (getversion) 65536) 37)
(
(abort #bad-kick)
))
;=============================================================================
(message #install-msg)
(if (< (/ (getversion) 65536) 39)
(copylib
(prompt "\n" #copying-triton)
(help @copylib-help)
(source tritonlib37)
(dest "Libs:")
(confirm)
)
(if (askbool (prompt "\n" #ask-kick39) (help #help-kick39))
(copylib
(prompt "\n" #copying-triton)
(help @copylib-help)
(source tritonlib39)
(dest "Libs:")
(confirm)
)
(copylib
(prompt "\n" #copying-triton)
(help @copylib-help)
(source tritonlib37)
(dest "Libs:")
(confirm)
)
)
)
(if (askbool (prompt "\n" #ask-prefs) (help #help-prefs))
(
(copyfiles
(prompt "\n" #copying-prefs)
(source tritonprefs)
(dest "sys:Prefs/")
(infos)
(files)
)
(if (= (exists ("env:Triton") (noreq)) 0)
(
(makedir
("env:Triton")
(confirm)
(prompt "\n" #ask-makedir1)
(help #help-makedir)
)
(makedir
("envarc:Triton")
(confirm)
(prompt "\n" #ask-makedir2)
(help #help-makedir)
)
)
(run trPrefsUpdate
(prompt #ask-updateprefs)
(help #help-updateprefs)
(confirm)
)
)
)
)